home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / FW2STFax.rexx < prev    next >
OS/2 REXX Batch file  |  1998-06-24  |  972b  |  61 lines
  1. /*
  2.     $VER: FW2STFax.rexx 1.0 (06.05.97)
  3.  
  4.     by Simone Tellini with the help of Achim Klopsch
  5. */
  6.  
  7. /* Switch Off TurboPrint before Fax   */
  8. /* Uncomment this line if you use TP  */
  9.  
  10. /* Address command 'turboprint:noturbo' */
  11.  
  12. /* Read Density */
  13.  
  14. 'GetGfxPrintPrefs Density'
  15.  
  16. prefs = result
  17.  
  18. initiation = run "STFax:STFax"
  19.  
  20. IF ~show('P','STFAX.1') THEN DO
  21.  
  22.     /*  If STFAX was not started   */
  23.  
  24.     ADDRESS COMMAND initiation
  25.     ADDRESS COMMAND "SYS:RexxC/WaitForPort STFAX.1"
  26. END
  27.  
  28. 'GFXPRINTPREFS Density 7' 
  29.  
  30. /* this command sets the paper feed to continuous */
  31.  
  32. 'PRINTSETUP FEED CONTINUOUS PAGES ALL'
  33.  
  34. ADDRESS 'STFAX.1' 'PRTDRIVER ON'
  35.  
  36. CALL ToCover
  37.  
  38. 'PRINT'
  39.  
  40. 'GFXPRINTPREFS density' prefs
  41.  
  42. ADDRESS 'STFAX.1' 'PRTDRIVER OFF'
  43.  
  44. EXIT
  45.  
  46.  
  47. ToCover:
  48.    OPTIONS Results
  49.    GETSECTIONLIST
  50.    list = Result
  51.    IF INDEX(list,"Fax_Cover")=0 THEN NOP
  52.    ELSE
  53.       DO
  54.          GOTOSECTION Fax_Cover
  55.          MOVETOLINE 1 0
  56.          UPDATEDATE
  57.          UPDATETIME
  58.       END
  59.    RETURN
  60.  
  61.